00100		DIMENSION A(16,4),B(8)
00200	200	TYPE 100
00300	100	FORMAT (' TYPE 4 PAIRS OF C M'/)
00400		ACCEPT 101,B(1),B(2),B(3),B(4),B(5),B(6),B(7),B(8)
00500	101	FORMAT(8F)
00600		K=1
00700		DO 201 I=1,7,2
00800		Z=-1.0
00900		DO 202 J=1,15,2
01000		Z=Z+1.0
01100		A(J,K)=B(I)+Z*B(I+1)
01200	202	A(J+1,K)=B(I)-Z*B(I+1)
01300		K=K+1
01400	201	CONTINUE
01500		TYPE 103,((A(J,K),K=1,4),J=2,16)
01600	103	FORMAT(1H 16(4F/))
01700		TYPE 300
01800	300	FORMAT(' TYPE 1 TO PRINT IT'/)
01900		ACCEPT 301,J
02000	301	FORMAT(I)
02200		IF(J.NE.1)GO TO 200
02210		PRINT 302,B
02230	302	FORMAT(8F8.5/)
02250		PRINT 103,((A(J,K),K=1,4),J=2,16)
02300		END